home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / demo nr.2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  143 lines
  1. 1000 poke53280,0:poke53281,0
  2. 1010 printchr$(8)chr$(14)"[147][159]          [208]lot-[194]asic 64  [196]emo           "
  3. 1020 print"    [196]ieses [196]emo soll [201]hnen die [214]er-"
  4. 1030 print"    wendung von [208]lot-[194]asic-[194]efehlen"
  5. 1040 print"    veranschaulichen."
  6. 1050 print"    [194]itte gehen [211]ie das [208]rogramm"
  7. 1060 print"    [218]eile fuer [218]eile durch, und lernen"
  8. 1070 print"    [211]ie die [212]ricks von [208]lot-[194]asic 64"
  9. 1080 print"    kennen. [197]s wird sich lohnen!"
  10. 1090 print"    [215]aehrend das [208]rogramm laeuft wird "
  11. 1100 print"    immer die gerade bearbeitete [218]eile"
  12. 1110 print"    in den ersten beiden [194]ildschirm"
  13. 1120 print"    zeilen angezeigt.
  14. 1130 [153]"    (NULL)lotter (NULL)tartklar machen und"
  15. 1140 [153]"    (NULL)val(NULL)(NULL)(NULL)(NULL)wait druecken !"
  16. 1150 [239]
  17. 1160 : [161] a$
  18. 1170 [240] a$[178][199](13)
  19. 1180 [153]"load"
  20. 1190 [246]
  21. 1200 [208]
  22. 1210 [129] i [178] 0 [164] 240:[130]:[143] warten bis reset fertig
  23. 1220 [207]
  24. 1230 [207]
  25. 1240 [212] 3
  26. 1250 [129] i [178] 0 [164] 3
  27. 1260 : [204] i
  28. 1270 : [211] i,[171]i,2,0,"(NULL)lot-peekasic 64  str$emo"
  29. 1280 [130]
  30. 1290 [207]
  31. 1300 [215] 40,[171]400
  32. 1310 [230] 0,0
  33. 1320 [204] 0
  34. 1330 [232] 0,400,0,400,500,0
  35. 1340 [129] ar [178] 0 [164] 6
  36. 1350 [204] ar
  37. 1360 : [216] 10[170]ar[172]55,0,50,20[170]ar[172]50,ar,10
  38. 1370 [130]
  39. 1380 [129] i [178] 0 [164] 6
  40. 1390 : [204] i
  41. 1400 : [218] 10[170]i[172]55,[171]20,4,0,[202]([196](1978[170]i),2)
  42. 1410 [130]
  43. 1420 :
  44. 1430 [143] programmabschnitt kuchengraphik
  45. 1440 :
  46. 1450 [135] an : [143] anzahl der werte
  47. 1460 [129] i [178] 1 [164] an
  48. 1470 : [135] we(i)
  49. 1480 : su [178] su [170] [182](we(i))
  50. 1490 [130]
  51. 1500 [231] 0,[171]220
  52. 1510 [207]
  53. 1520 [215] 479[173]2,0
  54. 1530 [129] i [178] 1 [164] an
  55. 1540 : [139] we(i)[179]0[167]he[178]39:we(i)[178][182](we(i))
  56. 1550 : pr [178] 100 [173] su [172] we(i)
  57. 1560 : wi [178] [181] (pr [172] 3.6 [170] .5)
  58. 1570 : ew [178] ew [170] wi
  59. 1580 : hi [178] sw [170] (wi [173] 2)
  60. 1590 : [139] pr [179] 1 [167] 1680
  61. 1600 : [204] i
  62. 1610 : [219] 0,0,he,he,hi,hi,1
  63. 1620 : [225] 0,0,200,sw,ew,1
  64. 1630 : gr [178] 4
  65. 1640 : [139] pr [179] 3 [167] gr [178] 8
  66. 1650 : [219] 0,0,100 [170] he,100 [170] he,hi,hi,1
  67. 1660 : pr [178] [181] (pr [170] 0.5)
  68. 1670 : [223] [171]10,[171]10,gr,0,[202] ([196] (pr),2) [170] "%"
  69. 1680 : sw [178] ew
  70. 1690 : he [178] 0
  71. 1700 [130]
  72. 1710 :
  73. 1720 [143] data werte fuer kuchengrafphik
  74. 1730 [143] wenn wert negativ, dann wird
  75. 1740 [143] dieser hervorgehoben
  76. 1750 :
  77. 1760 [131] 4 :[143] anzahl der werte
  78. 1770 [131] 200,-100,80,170
  79. 1780 :
  80. 1790 :
  81. 1800 [143] minifunktionsplot
  82. 1810 [150] [165]a(x)[178]x[174]3[173]50 000
  83. 1820 [231] 0,[171]300
  84. 1830 [207]
  85. 1840 [215] 479[173]2,0
  86. 1850 [230] 0,0
  87. 1860 [204] 0
  88. 1870 [232] [171]200,200,[171]150,150,50,5
  89. 1880 [230] [171]200,[165]a([171]200)
  90. 1890 [204] 3
  91. 1900 [129] x [178] [171]200 [164] 200 [169] 3
  92. 1910 : y [178] [165]a(x)
  93. 1920 : [227] x,y
  94. 1930 [130]
  95. 1940 [212] 2
  96. 1950 [218] [171]170,100,4,0,"f(x)=x^3"
  97. 1960 [212] 3
  98. 1970 [230] 0,[171]200
  99. 1980 ar(0)[178]4:ab(0)[178]5
  100. 1990 ar(1)[178]1:ab(1)[178]1
  101. 2000 ar(2)[178]5:ab(2)[178]5
  102. 2010 [243] 1000
  103. 2020 [207]
  104. 2030 [206] 2
  105. 2040 [204] 0
  106. 2050 [207] "  (NULL)erkaufszahlen:"
  107. 2060 [231] 0,[171]300
  108. 2070 [207]
  109. 2080 [215] 79,0
  110. 2090 [230] 0,0
  111. 2100 [204] 0
  112. 2110 [232] 0,400,0,0,500,0
  113. 2120 [232] 0,0,0,320,60,5
  114. 2130 [129] ja [178] 0 [164] 4
  115. 2140 : [129] i[178]0[164]2
  116. 2150 :   [135] we
  117. 2160 :   [204] i[170]1
  118. 2170 :   [216] ja[172]75[170]18[170]15[172]i,0,15,we[172].06,ar(i),ab(i)
  119. 2180 : [130]
  120. 2190 [130]
  121. 2200 [204] 0
  122. 2210 [129] i [178] 1 [164] 5
  123. 2220 : [218] [171]79,i[172]60[171]10,4,0,[196](i[172]1000)
  124. 2230 [130]
  125. 2240 [218] [171]79,350,4,0," (NULL)tck."
  126. 2250 [129] ja [178] 0 [164] 4
  127. 2260 : [218] ja[172]75[170]18,[171]20,4,0,[202]([196](1980[170]ja),2)
  128. 2270 [130]
  129. 2280 [129] i [178] 0 [164] 2
  130. 2290 : [207]
  131. 2300 : [204] i[170]1
  132. 2310 : [210] 100,0,30,[171]10,ar(i),ab(i)
  133. 2320 : [211] 150,[171]10,4,0,"(NULL)rodukt "[170][199]([198]("atn")[170]i)
  134. 2330 [130]
  135. 2340 [131] 1000,2000,3000
  136. 2350 [131] 1500,2100,2700
  137. 2360 [131] 1600,2900,1700
  138. 2370 [131] 2600,3500,1000
  139. 2380 [131] 3000,4900,1600
  140. 2390 [231] 0,[171]200
  141. 2400 [247]
  142. 2410 [153]"load valnde "
  143.